;;; compiled by @win386 on Sat Mar 13 14:33:43 1993
;;; from file c:/src/lucid-19.4/lisp/modes/texnfo-u.el
;;; emacs version 19.3 Lucid.
;;; bytecomp version 2.08; 27-aug-92.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs18.
(if (and (boundp 'emacs-version)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19")))
(error "This file was compiled for Emacs19."))
(provide 'texnfo-upd)
(fset 'texinfo-make-menu #[(&optional region-p) "¼î┴ ├\n!ê─┼!)ç─╞!ê╟ ╚ ╟ bê┴ U½ä╩╦!êèî~ê╠\n\"½ë┴ ├\n!ê¬p`W½Ü═\n\"½ô┴ ╠\n\"½i┴ ├\n!ê¬p-─╬!ç" [region-p texinfo-hierarchic-level level texinfo-make-one-menu message "Done...updated the menu. You may save the buffer." "Making or updating menus... " region-beginning region-end beginning error "Please mark a region!" texinfo-find-lower-level-node texinfo-find-higher-level-node "Done...updated menus. You may save the buffer."] 3 "\
Without any prefix argument, make or update a menu.
Make the menu for the section enclosing the node found following point.
Non-nil argument (prefix, if interactive) means make or update menus
for nodes within or part of the marked region.
Whenever a menu exists, and is being updated, the descriptions that
are associated with node names in the pre-existing menu are
incorporated into the new menu. Otherwise, the nodes' section titles
Make a menu of all the appropriate nodes in this section.
`Appropriate nodes' are those associated with sections that are
at the level specified by LEVEL. Point is left at the end of menu."])
(fset 'texinfo-all-menus-update #[(&optional update-all-nodes-p) "è└ ê┴┬!êè├┼╞#½ä╟╚!ê) ½Å┴╩!ê╦╠!ê└ ê═╞!ê┴╬!ê╦╠!ê╧╞!ê┴╨!)ç" [mark-whole-buffer message "Checking for a master menu... " re-search-forward texinfo-master-menu-header nil t error "Please remove existing master menu, lest it be partly duplicated!" update-all-nodes-p "First updating all nodes... " sleep-for 2 texinfo-update-node "Updating all menus... " texinfo-make-menu "Done...updated all the menus. You may save the buffer."] 4 "\
Update every regular menu in a Texinfo file.
You must remove the detailed part of a pre-existing master menu before
running this command, lest it be partly duplicated.
If called with a non-nil argument, this function first updates all the
nodes in the buffer before updating the menus." "P"])
Indents the first line of the description, if any, to the value of
texinfo-column-for-description.
MENU-LIST has form:
((\"node-name1\" . \"description\")
(\"node-name\" . \"description\") ... )
However, there does not need to be a description field."])
(fset 'texinfo-indent-menu-description #[(column &optional region-p) "èî~ê¼ì┴┬!ê├!ê┼╞!¬₧┼╟!ê╚ bê`╔ W½ì╩ ½ë╦yê├!ê¬m┼╠!*ç" [region-p re-search-forward "^@menu" texinfo-menu-indent-description column message "Indented descriptions in menu. You may save the buffer." "Indenting every menu description in region... " region-beginning region-end texinfo-locate-menu-p 1 "Indenting done. You may save the buffer."] 2 "\
Indent every description in menu following point to COLUMN.
Non-nil argument (prefix, if interactive) means indent every
description in every menu in the region. Does not indent second and
subsequent lines of a multi-line description." "nIndent menu descriptions to (column number): \nP"])
*Regexps for searching for lower level sections in a Texinfo file.
The keys are strings specifying the general hierarchical level in the
document; the values are regular expressions.")
(fset 'texinfo-update-node #[(&optional region-p) "¼ò┴├─e┼#¼ä╞╟!ê╚ ê╔╩!)ç┴╦ ╠ U½ä╞╧!êî}êbê╨ ê╤─d┼#½ê╥yê╚ ê¬q╔╙!,ç" [region-p nil auto-fill-hook re-search-backward "^@node" t error "Node line not found before this position." texinfo-update-the-node message "Done...updated the node. You may save the buffer." region-beginning region-end end beginning "Please mark a region!" push-mark re-search-forward 0 "Done...updated nodes in region. You may save the buffer."] 4 "\
Without any prefix argument, update the node in which point is located.
Non-nil argument (prefix, if interactive) means update the nodes in the
marked region.
The functions for creating or updating nodes and menus, and their
The `texinfo-column-for-description' variable specifies the column to
which menu descriptions are indented. Its default value is 24." "P"])
(fset 'texinfo-every-node-update #[nil "è└ ê┴┬!ê├─!)ç" [mark-whole-buffer texinfo-update-node t message "Done...updated every node. You may save the buffer."] 2 "\
Update every node in a Texinfo file." nil])
(fset 'texinfo-update-the-node #[nil "└ ê┴ ê┬├─ \"êî~ê┼╟ ╔!\n╦!═ÿ½ä╬ ¬á╧\n╨$ê╧\n╤$ê╧\n╥$ê╙ -ç" [texinfo-check-for-node-name texinfo-delete-existing-pointers message "Updating node: %s ... " texinfo-copy-node-name t case-fold-search texinfo-hierarchic-level level texinfo-update-menu-region-beginning beginning texinfo-update-menu-region-end end "top" texinfo-top-pointer-case texinfo-insert-pointer next previous up texinfo-clean-up-node-line] 5 "\
Update one node. Point must be at the beginning of node line.
Remove extra commas, if any, at end of node line."])
(fset 'texinfo-sequential-node-update #[(&optional region-p) "¼ò┴├─e┼#¼ä╞╟!ê╚ ê╔╩!)ç┴╦ ╠ U½ä╞╧!êî}êbê╨ ê╤─d┼#½ê╥yê╚ ê¬q╔╙!,ç" [region-p nil auto-fill-hook re-search-backward "^@node" t error "Node line not found before this position." texinfo-sequentially-update-the-node message "Done...sequentially updated the node . You may save the buffer." region-beginning region-end end beginning "Please mark a region!" push-mark re-search-forward 0 "Done...updated the nodes in sequence. You may save the buffer."] 4 "\
Update one node (or many) in a Texinfo file with sequential pointers.
This function causes the `Next' or `Previous' pointer to point to the
immediately preceding or following node, even if it is at a higher or
lower hierarchical level in the document. Continually pressing `n' or
`p' takes you straight through the file.
Without any prefix argument, update the node in which point is located.
Non-nil argument (prefix, if interactive) means update the nodes in the
marked region.
This command makes it awkward to navigate among sections and
subsections; it should be used only for those documents that are meant
to be read like a novel rather than a reference, and for which the
Insert the `Next', `Previous' or `Up' node name at point.
Move point forward.
The first argument is the hierarchical level of the Texinfo file, a
string such as \"section\". The second argument is direction, one of
`next, `previous, or 'up."])
(fset 'texinfo-insert-node-lines #[(&optional title-p) "è└ ┴ ëbê`\nW½┌─╞╟#ê╚yê╔vê╩╞wê`è╞ê`){╠═è╬yê`)╧#½à╔vê¬è╚yê╨cê╤╔!ê½¢╩╞wê╙╘!¼Æ╚yê╔vê╒▒ê╓╫\"ê╪yê)¬!+½ä╓┘!ç╓┌!ç" [region-beginning region-end end-region begin-region re-search-forward texinfo-section-types-regexp nil end 0 1 " " title re-search-backward "^@node" -3 t "@node\n" backward-char title-p looking-at "[^, \n ]+" " " message "Inserted title %s ... " 3 "Done inserting node lines and titles. You may save the buffer." "Done inserting node lines. You may save the buffer."] 5 "\
Insert missing `@node' lines in region of Texinfo file.
Non-nil argument (prefix, if interactive) means also to insert the
section titles as node names; and also to insert the section titles as
node names in pre-existing @node lines that lack names." "P"])